﻿Imports Persistencia
Public Class ctrConfiguracoes

#Region "Variáveis"
    Private objFerramentas As New perConfiguracoes
#End Region

#Region "Métodos"
    Public Function RetornaConfiguracoes(ByVal Campo As String) As DataRow
        Try
            Return objFerramentas.BuscarConfiguracoes(Campo)

        Catch ex As Exception
            Throw New Exception("Exceção no método 'RetornaConfiguracoes'. " & Environment.NewLine & Environment.NewLine & ex.Message)
        End Try
    End Function
    Public Function GravaConfiguracoes(ByVal Valor As Integer, ByVal sCampo As String) As Boolean

        Try
            Return objFerramentas.GravarConfiguracoes(Valor, sCampo)

        Catch ex As Exception

            Throw New Exception("Exceção no método 'GravaConfiguracoes'. " & Environment.NewLine & Environment.NewLine & ex.Message)
            Return False

        End Try

    End Function
#End Region

End Class
